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MODULE FORSSCLOS | wit "CLOSE FI c. 


E FIL 
{DENT File: FORCLOSEF.B32 Edit: $811002 
BEGIN 


RRR RE ARER AREER EEE A EERE EATER HARERRAHEEREREREEEE 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


ie ily Te acchebh hae FURNISHED UNDER A LICENSE tee MAY BE USED AND gh hd 


oooooc[eoeo 
SSSssssss 


” 
a 
® 
* 
* 
* 
* 
' * 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ad 
' * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* 
* 
+ 
* 
* 
6 
* 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


ts DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FWIN ("OC OONOA UE WN" OOONOUS wr — 


SSSSSSssssssssssssssss3ss 
iwlolelelelelelelelolelelola) 


SRR REE RA AERA ERA EAA 


++ 
FACILITY: FORTRAN Language Support 
ABSTRACT: 
This module issues an RMS close to a file on a LUN. 


AUTHOR: Steven B. Lionel, 30-Sep-1982 
MODIFIED BY: 


1-001 = Adapted from OTSS$S$CLOSE_FILE, porstee 1-012. SBL 30-Sep-1982 


' 
i 
i 
i 
i 
i 
i 
ENVIRONMENT: User access level; re-entrant, AST level or not. 
i 
i 
i 
i 1-002 - Use FAB and NAM in CCB.” SBL 20-Jan-1983 


MEUM OO ONAUE WN =O ODNAOU EWN OOONAUS WN OOWONOUS Wh 
a tt tt a OOOO 
e 


BEE ESE FANNIN NIP PODIPONNONIIDDD 2 2 OO Oo 
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ORSSCLOSE_FILE CLOSE FILE 1o=3e0 p-1 138% 90: }: $2 AX-11 Bliss-32 V4.0-7 
eit p-1984 9 FORRTL. SRCJFORCLOSEF. 4 2:1 
s 67 46 1! 
: 8 47 1 | PROLOGUE FILE: 
: 8 a 
; 1 039 } REQUIRE "RTLIN:FORPROLOG'; ' FORTRAN definitions 
; : 113 1! 
: 4 18 1 ! TABLE OF CONTENTS: 
; 5 11 1! 
; 6 0120 1 
; 7 0121 1 FORWARD ROUTINE 
; 28 ; § ! FORSSCLOSE_FILE : CALL_CCB; ! Internal file close 
; 60 1246 1! 
3; 60 66} 125 1 ! EQUATED SYMBOLS: 
3 6¢ 01 § 1! 
5 § 01 1! NONE 
5 0128 1! 
n<? ae 0129 1 ! OWN STORAGE: 
; 66 01350 1! 
3s 667 0131 1! NONE 
; 01 ¢ 1! 
3 $2 01 1 ! EXTERNAL REFERENCES: 
r 0 0134 1! 
; 71 0135 1! NONF 
3 ue 0136 1! 
3 7 0137 1 
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10 
CHAM CUES Wath Cetrdkctali’s 
! Internal file closer 


GLOBAL ROUTINE FORSSCLOSE_FILE 
: CALL_CCB = 


+4 
' FUNCTIONAL DESCRIPTION: 


Do an RMS CLOSE or DISCONNECT of a LUN. This includes handling 
any of the disposition flags in the LUB, whether set by OPEN or CLOSE. 


! 

| 

! 

! 

i 

i FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
Various fields from the LUB, pointed to by CCB. 
IMPLICIT OUTPUTS 
1 

! 

' 

! 

' 

! 

! 

' 

i] 

! 

' 

1 

' 


FPWR OO ODONOUES WN" OVOnOu 


Various fields in the LUB and RAB. 

i ROUTINE VALUE: 

The same as RMS CLOSE. The caller generally only tests the 
low-order bit of the completion code: if 1 the close succeeded, 
if 0 it failed. 

i SIDE EFFECTS: 


CLOSEs the LUN, and marks it for deallocation. 


BEGIN 
EXTERNAL REGISTER 
CCB : REF SFORSCCB_DECL; 
LOCAL 
CLOSE_RESULT; ! RMS result of SCLOSE 
BIND 
FAB = CCB: REF SFORSFAB_CCB_STRUCT, 
NAM = CCB: REF SFORSNAM_CCB_STRUCT; 


'¢ 
: If V_DELETE is on in the LUB, set the DLT bit in the FAB. 


IF .CCB CLUBSV_DELETE) THEN FAB CFABSV_DLT) = 1; 
' 


'¢ 
If V_PRINT is on in the LUB, set the SPL bit in the FAB. 


If .CCB CLUBSV_PRINT] THEN FAB CFABSV_SPL) = 1; 


—OOONO NEW (CO OONOUEWR SO OONOUEWN— 
felele lel eleleleleleloleleleleleleleleleleleloelalelelelelelelelelelelelelelelelelelelelelelalelealealeleleleleloalalo) 


ee eel eel eel eel eel ceed eel eel eel cel el el eel eel eel ells eel el elt el el eel el ell elt el eel cel cel cel lls cals eel cel elt cere cell cel elt alt elt cecal cel alt cells cecal lt cecal els cect esl allt sells ls cecal ll 


0 00 00 00 00 0 09 09 SI NIN INI NN NNO AAAAAAAOAOUUMUMUUIUIUIUIS BEER EERE EW 
Le CS SS SFR HO OW NO AE WMO O00 NOU PR O00 WOU hdd O09 NO UNI 2 OOOo 


POPOPOPOPOMONPPONONINUNINPINPINOPONININIDININDINIDS 9 9 9 es 


me ee ee ee ed ed ed ed ed od od 


~~ 
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14 
} If V.SUBMIT is on in the LUB, set the SCF bit in the FAB. 


IF .CCB CLUBSV_SUBMIT] THEN FAB CFABSV_SCF) = 1; 
4 
If the file was not successfully OPENed, zero the XAB chain pointer. 


IF NOT .CCB CLUBS$V_OPENED) 
FAB CFABSL_XAB] = 0; 


14 
Now do the RMS close if IFI is not zero. 


i he CFABSW_IF1] NEQ 0 
BEGIN 


te 
' Do a SCLOSE and put the error codes into the RAB so that 
our caller has a better idea of what the error was. 


CLOSE_RESULT = SCLOSE (FAB = FAB (0,0,0,0)); 
yw -CLOSE_RESULT 


= .CLOSE_RESULT; 
= .FAB CFABSL_Stv]; 


SE 
CLOSE_RESULT = 1; 


'¢ 
} inqicate that the LUN has been closed, so further 1/0 to it will 
! fail. 


CCB CLUBSV_OPENED) = 0; 


'¢ 

! Flag FORSSCB_POP that it is to deailocate the virtual storage 

' occupied by this LUN. This bit also prevents OPEN from opening 

' this LUN. OPEN will only see it if FORSSCB_POP does not deallocate 
' the LUB, which will pepper only if there is recursive 1/0 active on 
' the LUN. When all of the recursive 1/0 has failed then the LUN 

} can be opened again. 


CCB CLUBSV_DEALLOC) = 1; 


'¢ 


a ed eel el ee ce ee cee ee ec a ed ee ae ed a el en ee ce ee ee cl cc cee ee cl ce ee el ce cl cel el ed ce ee el ca ec ee ee ee ee ee eed 
ooooo Nee eee ew wie lolol olelolololololololololololololololololololol ol ool oo a) 
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CLOSEF .832;1 
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eae CLOSE FILE 
1-002 


K 10 
16-Sep-19 


4 00:15:47 AX-11 Bliss-32 V4.0-74 Page 5 
12-38-1382 9:37:95 YAARTL SRESFORCY SEF 69251 - a 
$ 188 38 Return the RMS status resulting from the CLOSE. 
: 191 i 
; 198 55 RETURN (.CLOSE_RESULT); 
: 19 0256 1 END; 
TITLE FORSSCLOSE_FILE CLOSE FILE 
“IDENT \1-002\ 
.EXTRN SYSSCLOSE 
.PSECT _FORSCODE,NOWRT, SHR, PIC,2 
0000 00000 -ENTRY FORSSCLOSE_FILE, Save nothing ; 0138 
05 FC AB 06 £1 00002 BC BE ~4 (CCB) + 0187. 
49 AB 80 8F 88 00007 BISB2 #128, 73(CCB) ; 
FC AB 95 0000C 1$: TSTB. = =4 (CCB) + 0193 
04 18 OOOOF GEQ Ss : 
49 AB 20 88 00011 BISB2 #32, 73(CCB) ; 
05 FF AB 05 £1 00015 2s: BC #5, -1(CCB), 3$ + 0199) 
49 AB 40 8F 88 OOOIA BISB2 #64, 73(CcBS ; | 
03 FC AB €E8 OOO1F 3$: LBS. -4(¢CB), 4$ > 0205 | 
68 AB D4 90025 CLRL  104(C¢BS : 0207 
46 AB BS 00026 4$: TSTW © 70 CCB) + 0213 
18 13 00029 BEQL = 5$ : 
44 AB 99F 00028 PUSHAB 68(CCB) > 0222 
000000006 00 01 FB O00¢E CALLS #1, SYSSCLOSE : | 
OE 50 £8 00035 BLBS § CLOSE_RESULT. 6$ + 0223 
08 AB 50 DO 00038 MOVL  CLOSE~RESULT. 8(CCB) > 0226 
OC AB 50 AB DO 0003C MOVL 80(CCB), 12(CCB) : 0227 
03 11 00041 BRB 6$ : 0213 
50 01 DO 00043 5$ MOVL #1, CLOSE_RESULT > 0231 
FC AB 01 BA 00046 6$ BICB2 #1. -4(CCB) : 0238 
FF AB 10 88 0004A BISB2 #16, -1(CCB) > 0249 
04 0004E RET : 0256 


; Routine Size: 79 bytes, Routine Base: _FORSCODE + 0000 


: 194 0257 1 

3 6199 0258 1 END ! END of FORSSCLOSE_FILE module 
; 196 0259 1 

» We 0260 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_FORSCODE 79 WOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


FORSSCLOSE_FILE CLOSE FILE 
1-002 


10 
b-Sep-1984 90:13:47 VAX-11 Bliss-32 V4.0-74 Page 
4-Sep-1984 12:31:39 CFORRTL.SRCJFORCLOSEF .832;1 


Library Statistics 


; ssosnnae SyGhol§ cocecese Pages Processing 
$ File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 12 Q 581 00:01.0 
> _$255$0UA28: porate eeaseer is Teast 711 180 2 52 00:00.6 
; _$255$DUA28: CFORRTL.OBJIRTLLIB.L32;1 56 0 8 00:00.1 
5 COMMAND QUALIFIERS 


SESE OOY SUED EES SME APT EL ER SMITRAR EL FOAL SOE FOREL OO? SUR IAUE LS EP NEL ASE? MSRC$:F ORCLOSEF /UPDATE=(ENH$: F ORCLOSEF 


Size: 79 code +0 data bytes 
Run Time: 00:05.3 

Elapsed Time: 00:23.9 

Lines/CPU Min: 2921 
Lexemes/CPU-Min: 10752 

aaty Used: 88 pages 

Compilation Complete 


—_—— 
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